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MODULE PATFRE ( 
VARIANT EQL 1 


ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE), 
NT = 'V04-000") = 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!® ALL RIGHTS RESERVED. 


® 
® 
® 
® 
® 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH TH * 
:® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. ® 
- * 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!* CORPORATION. e 

* 
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FACILITY: PATCH 
i¢¢ 
: FUNCTIONAL DESCRIPTION: 
3 Free storage allocator and manager for symbol table. 
003 Version: v02-008 
004 
00 History: 
004 Author: 
004 Isaac Nassi, 7 Jul 1976: Version 01 
0044 
0045 
0046 
0047 v02-008 PCG0001 Peter Geor 02-FEB-1981 


e 
Add require statement for P1BS:PATDEF .REQ 


Modified by: 
Carol Peters, 11 Oct 1977: Version 13 
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Kathleen Morse, 13 Oct 1977: Version 14 
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16-Sep-1984 00:16:31 VAX=11 Bliss-32_ V4.0-742 P 3 
102 380- 1984 99: 48:3) DISKSVMSMASTER:CPATCH.SRCIPATFRE.B32;1~ (2) | 


tee | 


aoe 071 1! 3 
; £ Bre 1 ! Abstract: : 
4 74 7 1! ° 
ae 074 1! THIS MODULE CONTAINS PROCEDURES TO MANAGE AN AREA OF FREE : 
; £6 Bf? : STORAGE. : 
© . | 5 
: rw 0077 . 3 THE ROUTINE PATSFREEINIT IS CALLED AT SYSTEM INITIALIZATION : 
; 078 1! TO INITIALIZE THE MODULE. IT TAKES AS INPUT THE ADDRESS 3 
; 80 079 1! F THE PROCEDURE TO BE CALLED IN THE EVENT AN ERROR 3 
; 8) 080 1! 1S ENCOUNTERED. CODES FOR ERROR CONDITIONS ARE CONTAINED IN : 
 § tt 1} FILE ‘PATMSG.REQ'. | ; 
3 Be $0 g 1! THE ROUTINE FREEGET IS CALLED TO ALLOCATE A USER SPECIFIED : 
i) oe 0084 1! R OF LONGWORDS. IF THE REQUEST CAN BE SATISFIED, ; 
3; 0085 1! FREEGET RETURNS A POINTER TO THE BLOCK OF LONGWORDS. : 
5 OF 0086 1! THE RETURNED BLOCK CONTAINS ONE EXTRA WORD CONTAINING : 
; «6288 0087 1! HE SIZE REQUEST AT WORD -1 IN THE BLOCK. THIS SIZE F 
5; 0088 1! IS CHECKED WHEN THE STORAGE IS RETURNED. IT SHOULD F 
; FP 0089 1! NOT BE MODIFIED. THE ALGORITHM USED IS A FIRST FIT 3 
; 0090 1! ALGORITHM WHICH WHILE NOT OPTIMAL SHOULD GIVE REASONABLE | . 
3 4 829) : RESULTS, AND DO A MINIMUM OF SEARCHING. : 
; 694 0095 1! Dynamic storage is the last 64K bytes of the per process 3 
; 0094 1! address space. It is made accessible by a SCRETVA system 3 
; 38 ad : service call made in FREEINIT. | : 
; «98 0097 1! PATSFREERELEASE IS CALLED TO RELEASE STORAGE NO LONGER NEEDED. | ; 
3 196 8206 : IT ATTEMPTS TO DO AS MUCH COMPACTION AS IS POSSIBLE. : 
: 101 0100 1: ROUTINE PATSFREEZ IS CALLED TO ALLOCATE A BLOCK OF | : 
: ioe gies : } CLEARED FREE STORAGE. : 
; ioe 0108 ! ROUTINE PATSREPORT_FREE REPORTS THE NUMBER OF BYTES LEFT IN FREE STORAGE. | F 
: 106 0105 1 !-- : 
s 107 0106 1 $ 
: 108 0107 1! : 
; 109 0108 1 ! TABLE OF CONTENTS F 
s 110 0109 1! 3 
s 411 0110 1 3 
; Ng 0111 1 FORWARD ROUTINE : : 
ae Oils 1 PATSFREEINIT : NOVALUE, ! routine to initialize free storage : 
; 1146 011 1 FREEG ' routine to get some free pterege | : 
s 715 0114 #1 PATSFREERELEASE : NOVALUE, ! routine to release some free storage : 
:; 116 0115 1 PATSFREEZ ' routine to get and zero some free storage | : 
3 +E 4 B18 : PATSREPORT_FREE; ' ROUTINE TO REPORT FREE STORAGE LEFT | 
: 119 O18 1! | 
: 120 119 1 ! INCLUDE FILES 
s ei 120 1! 
9 ¢ 121 1 | 
2% 1 1 LIBRARY ‘SYSSLIBRARY:STARLET.L32'; 
: 126 1 1 REQUIRE ‘SRC$:PATPCT.REQ'; 
s 125 1 1 REQUIRE ‘SRC$:VXSMAC.REQ'; 
: 126 2 3 1 REQUIRE ‘SRC$:PATGEN.REQ'; 
3: 127 4 1 REQUIRE ‘"SRC$:BSTRUC.REQ'; : : 
; 128 526 1 REQUIRE ‘LIBS:PATDEF.REQ'; ! Defines Literals | 

| 

| 


(2) 


es gta 
ge 4 
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VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER 


Be 13:38:32 


so 1 
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PATFR VAX=-11 Bliss-32 V4.0 Pa 5 
y04-080 1923ep- 1382 98:38:23 MSNS EE BASES TB a MA Sec Seysser.reos1 2% «13 
: R i SWITCHES LIST (SOURCE): 
: RO? 

: RO? 

; RO790 


S 


EXTERNAL ROUTINE 
PATSfao_out; ! formats a Line and outputs to the terminal 


— —) a 


eS eee ee hms 


9 
04-060 w$ep-198e 19:58:32 DISKSVMSMASTERSCPATCH.SACIPATFRE.B32:1°" (25 


: 131 1 

2 1! 

; ; 4 : : } EXTERNAL REFERENCES 

: 135 Bb | 
7 rh 1 EXTERNAL 
2 ets 1 PATSGL_RST_BEGN, ! START OF RST 
: : ; tk : PATSGL_ERRCODE; ! ERROR CODE 
: 140 O83 1 | EQUATED SYMBOLS 

ig Bh 

; 128 ORs 1 LITERAL 
$ 1ee th ; DEBUGGER = TRUE; ' COMPILE TIME CONDITIONAL FOR DEBUGGING 

; 146 L 085) 1 ZIF DEBUGGER 

; 14 B26 1 XTHEN 

3: «6148 0853 «(1 LITERAL 

; «1469 Oaee 1 NUM_OF WRK _PAG=128, ' NUMBER OF WORK AREA PAGES 

; 150 855 1 STORESTZE=(512*NUM_OF_WRK_PAG) /4; i GET 65K OF WORK AREA FROM PO NOT P1 

Wa U 9828 1 ZELSE 

3 136 U 085 1 LITERAL ' GET WORK SPACE FROM P1 AREA 

3; 13 U +3 1 SYM_TAB_START =%X'7FFFOOOO', ! virtu.l address of symbol table beginning 

: 1546 U Bae 1 SYM_TAB_END =2EX'7FFFFFFF', 

; 155 U 0860 1 STORESIZE = (SYM_TAB_END = SYM_TAB_START) / 4; 

, 396 0861 1 ZFI 

: 1% oges 1! | 
: 159 0864 1 i OWN STORAGE | 
: 160 865 1! 

: 182 Ose? 1 OUN 

: 188 L ate 1 ZIF DEBUGGER 

3; «164 0868 1 THEN 

: 192 Bas ' ort PATSGL_STORAGE: VECTORCSTORESIZE], ' SET ASIDE WORK AREA IN PO 

: 167 Bare 1 PATSSTORE: REF VECTOR, ! pointer to free storage area 

3 168 th : PATSFREELIST : VECTOR (2); ! describes remaining unallocated free stora 
; 170 4 0875 BASED_STRUCTURE (FR, 2, . 

: 172 087? 1 NEXT, 1, . 33: 05; 
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-138% 99: 18:3) VAX-11 Oise. 32 V4.0-742 
984 : DISKSVMSMASTER: CPATCH. SRCIPATFRE. B3264 
GLOBAL ROUTINE PATSFREEINIT : NOVALUE = 


be 


\e+ 
FUNCTIONAL DESCRIPTION: 

PATSFREEINIT IS CALLED TO INITIALIZE THE FREE STORAGE 
PACKAGE. 


! 
: CALLING SEQUENCE: 

PATSFREEINIT () 

INPUTS: 

none 

IMPLICIT INPUTS: 

NONE 

OUTPUTS: 

} NONE 

IMPLICIT OUTPUTS: 

PATSFREELIST AND THE FIRST ELEMENT OF PATSSTORE ARE INITIALIZED. 
ROUTINE VALUE: 

NOVALUE 

SIDE EFFECTS: 

NONE 


'e¢ 

! THIS ROUTINE HAS TWO VERSIONS, oer UPON WHETHER IT MUST LEAVE THE 

! Pl SPACE FOR THE DEBUGGER TO USE, OR CAN USE IT FOR ITS OWN PURPOSES. : pe 
: LI THEN THE COMPILE-TIME VARIABLE ‘DEBUGGER 
; 3S SET fT . E, CAUSING PATCH TO ALLOCATE THE WORK SPACE FROM PO SPACE 

! INSTEAD OF SPACE. OTHERWISE, ‘DEBUGGER’ IS SET TO FALSE AND PATCH 

USES THE P1 SPACE FOR WORK AREA. 


lee 

i FIRST HANDLE THE CASE WHERE THE DEBUGGER IS NOT TO BE LINKED IN. 
ZIF NOT DEBUGGER 

ZTHEN 

LITERAL 


0, ' offset for start of symbol table 
3 ! offset for end of symbol table. 


START_TAB 
END_TAB 


nu 
— 
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PATFR 1hese -1984 :16:31 VAX-11 Bliss-32 V4.0-742 Pa 8 
| ¥04+000 yengeen obs P3:E8:8s We sdwBAAS fens conto Skcaparrre.e32eke (3, 

5 1 U 5 

: ¢ u 09 LOCAL 

3 : 4 SYMTAB_DESC : VECTOR (2); ! descriptor for space to create 

: 235 U 09 SYMTAB_DESC [START_TAB] = SYM_TAB START; 

; U 0940 2 SYMTAB-DESC CEND_TAB) = SYM_TAB_END; 

; U 1 PATSGL_ERRCODE = SCRETVA CIRADR™= SYMTAB_DESC, RETADR = SYMTAB_DESC); 

; U § If NOT .PATSGL_ERRCODE 

; U 094 THEN 

3 40 U 4 SIGNAL (.PATSGL_ERRCODE); 

3; 241 U 5 

r 4 U $ 'e¢ 

: 26 U ! The create virtual page system service was successful. 

: 266 U 8 ! Now initialize the first few words of the space, and the 

3 $7 3 } freelist values. 

: 4 U 31 PATSSTORE = .SYMTAB_DESC [START_TAB); 

i; me U b988 'e¢ 

$ 29 : H+) HANDLE THE CASE WHERE THE DEBUGGER IS LINKED IN. 

: 25 U 095 

3 3g 389 ZELSE 

3 54 38 PATSSTORE = PATSGL_STORAGE; 

§ 22 04) ZF I 

: 3 1 2 FR_SIZE (.PATSSTORE) = STORESIZE; 

3 58 § FR_NEXT (.PATSSTORE) = NULL; 

3 59 FR_LNEXT (PATSFREELIST) = .PATSSTORE; 

$ 60 0964 FR_SIZE (PATSFREELIST) = 2; 

; 61 0965 

3 O¢ 2908 'e¢ 

; 37 944 NOW SET THE ADDRESS OF THE START OF THE RST. 

: 65 0969 PATSGL_RST_BEGN = .PATSSTORE; 

: 267 0971 1 END; 


- TITLE 42) a | 
-IDENT \v04-000\ 


.PSECT _PATSOWN,NOEXE ,2 
00000 PATSGL_STORAGE : 


-BLK 65536 
10000 PATSSTORE: 

-BLK a 
10004 PATSFREELIST: 

-BLKB 8 


PATSFAO_OUT, PATSGL_RST_BEGN 
PATSGL_ERRCODE 
ACCESS~CHECK 


_PATSCODE ,NOWRT ,2 


vo4=000 ieseortgge 9:5853)  DESKSUmSMASTERSCPATCH.SRCIPATFRE.B32¢1%" (3) > 
ge ENTRY PATSEREEINIT, Save R2 ; 0878 
Qo00b000' EF OE MOVAB PATSGL LOSTORAGE, PATSSTORE ; 0958, 3 
2 G 0001 MOV T$STORE Rn ; ; 
60 4090 BF 3¢ 0001 MOVZWL #16384, (RO) Stet, 
4 AO 04 0001 CORE” &(RO) ; 096 
8 50 DO 00018 MOVE RO, PATSFREELIST#4 : 
be A 3 09 1 VL a3. PATSFREELIST : 0964 
000000006 EF BO 00088 MOVL © RO. PATSGL_RST_BEGN : 0969 


; Routine Size: 43 bytes, Routine Base: _PATSCODE + 0000 


Fees ae | 
v04~060 eSep=198e 19:59:32 DISKSUMSRAS TERS CPATCH. SACIPATERE.B32:1°" (A) 


: $ a 1 ROUTINE FREEGET (NEED1) = : 
8 975 1 $ 
: or 974 1 I+ : 
; f if} ' : FUNCTIONAL DESCRIPTION: ; 
3 274 8 1! PROCEDURE FREEGET IS CALLED WITH ONE INPUT ARGUMENT, ; 
>: 27s 8 1! Di, WHICH REPRESENTS THE NUMBER OF WORDS OF FREE 3 
: 27 979 13 STORAGE NEEDED. IT SEARCHES THE FREELIST FOR A : 
: 7 980 1! NODE THAT HAS AT LEAST THE REQUIRED NUMBER OF WORDS. : 
; 8 es IF THE NODE HAS MORE THAN THE REQUIRED NUMBER OF WORDS, : 
; 3 : i ; THE NODE IS SPLIT INTO TWO NODES, AND ONE IS RETURNED. : 
; 8 : : CALLING SEQUENCE: ; 
: 68 986 1! FREEGET () : 
5 ‘ee 2 3 
; 285 oe 1 ! INPUTS: 3 
3 Be 989 1! r 
; 4 my } NEED1 = THE NUMBER OF WORDS NEEDED OF FREE STORAGE : 
3; 289 998 1! IMPLICIT INPUTS: : 
3 90 995 1! 3 
; 291 994 1! THE CURRENT STATE OF PATSFREELIST. : 
; 29 0995 1} : 
:; 29 3998 1 ! OUTPUTS: 3 
: 29% 0997 1! : 
3: 295 0998 1! THE ADDRESS OF THE FREE STORAGE ACQUIRED. : 
3 96 0999 1! 3 
: 297 1000 1 ! IMPLICIT OUTPUTS: : 
; 298 1001 1! : 
: 299 1008 1! THE STATE OF PATSFREELIST AND THE COUNT OF WORDS : 
; 300 1003 1! OF STORAGE LEFT ARE CHANGED. 

: 301 1004 1! 

; 30 1005 1 ! ROUTINE VALUE: | 

3 0 1208 1! | 

3: 304 1007 1! THE ADDRESS OF THE BLOCK | 

s 05 1008 1! 

; 06 1908 | | SIDE EFFECTS: 

3; 308 1011 1! IF THERE IS NO FREE STORAGE, THEN A SEVERE ERROR IS REPORTED WHICH 

3; 309 101g 1! CAUSES AN UNWIND’ FOR THE NEXT COMMAND (INTERACTIVE MODE) OR AN 

: 310 101 1! EXIT FROM PATCH (BATCH MODE). 

: 311 1014 1 fe- 

; 1g 1015 1 

: 31 1016 2 BEGIN 

: 314 1017 

: He 1019 5 COL cey | 

: 3 1020 OLDNODE, | 

: 318 1021 LIST, 

: 19 1 § HAVE; 

3 20 10 

3; 321 1024 2 NEED = .NEED1 +1; ! ONE WORD BIAS FOR SIZE 

; é 1025 IF .NEED LSS 0 

: 1 $ THEN 

: 4 1 SIGNAL (PAT$_NOFREE); 

: 5 1028 2 LIST = .FR_NEXT (PATSFREELIST); 
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! FIND FIRST FIT 

! LARGER THAN NEEDED 
!' LARGER THAN NEEDED 
!' CONTAINS SIZE 

!' FIND FIRST FIT 

! Signal error 


! FOUND 
! FOUND 


need + 2)) 
_NEXT (.OLDNODE) = .FR_NEXT (.LIST) 
LIST 
LIST 
OLDN 


ve GEQ ¢ 


-FRSIZE (.LIST)) EQL .NEED) 


»-HAVE EQL .NEED 


RETURN (.LIST + 4); 


ELSE LIST = 
OLDNODE = 
END; 


OR (.ha 
BEGIN 


IF 
THEN FR 


ELSE 


HAVE = 
$_NOFREE); 


RETURN NULL 


OLDNODE = PATSFREELIST; 
SIGNAL (PAT 


WHILE .LIST NEQ NULL 
G 
THEN 
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RET 
MOVL 
MOVL 
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PUSHL 
CALLS 
CLRL 
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(OLD SNObE OLDNODE 
#7176466 

a, LIBSSIGNAL 
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10 
PATFR 1 Sep-1984 09 16:31 VAX=-11 Bliss-32 V4.0-742 P 
v04=0 14-Sep-1984 12:52: DISKSVMSMASTER: CPATCH. SRCIJPATFRE.B32; 
: 610 1113 NODE = .FR_NEXT (PATSFREELIST); 
: 411 111 OLDNODE = PATSFREELIST: 
: aig 111 WHILE -INODE GTRA .NODE AND .NODE NEQ NULL 
: 414 1116 i BEGIN ! FIND CORRECT SLOT 
> 415 W174 OLDNODE = .NODE; 
: 416 1118 4 NODE = .FR.NEXT (.NODE); 
> 417 1119 END; ' FIND CORRECT SLOT 
> 418 1120 FR_NEXT (.INODE) = .NODE; i MERGE INTO LIST 
: 419 1121 FR-NEXT (.OLDNODE) = .INODE; 
: 420 11 é INCR I FROM 1 TO 2 DO 
> 621 11 IF .OLDNODE + .FR_SIZE (.OLDNODE) * 4 EQLA .FR_NEXT (.OLDNODE) 
; 4 g i 4 mich AND .OLDNODE NEQA PATSFREELIST ‘NOT FIRST ON LIST 
: 424 1126 4 BEGIN ! MERGE A NEIGHBOR 
> 425 1127 4 FR_SIZE (.OLDNODE) = .FR_SIZE (.OLDNODE) + .FR SIZE (.FR_NEXT (.OLDNODE)); 
> 426 1128 4 FR-NEXT (.OLDNODE) = .FRTNEXT (.FR_NEXT (.OLDNODE)); 
: 427 11¢9 4 END IMERGE A NEIGHBOR 
> 428 1130 3 ELSE OLDNODE = .FR_NEXT (.OLDNODE); 
; 499 1131 END ' IN RANGE 
: 630 113¢ 2 ELSE 
: 431 113 BEGIN 
: 43¢ 1134 3 SIGNAL (IF .FR_SIZE (.INODE) NEQ .NUM 
> 43 1135 3 THEN PAT$_FRESIZE 
: 434 1136 3 ELSE PAT$~FRERANGE); ! alarm 
> 435 1137 2 END; 
: 436 1138 1 END: 
000c 00000 .ENTRY PATSFREERELEASE, Save R2,R3 
53 00000000" EF i 00002 MOVAB PATS$STORE, R 
52 04 AC 04 ¢3 00009 SUBL3 #4, INODE1, INODE 
51 08 Ac 01 C1 00005 ADDL3 #1. NUM1, N 
63 32 D1 9001 CMPL _—INODE, PATSSTORE 
65 1F 00016 BLSS 
50 63 OOOOFFFF 8F C1 00018 ADDL3 #65535, PATSSTORE, RO 
50 52 D1 00020 CMPL _—INODE, RO 
58 1A 90 : BGTRU 6 
51 62 D1 000 CMPL  (INODE), NUM 
53 12 00028 BNEQ 6$ 
50 08 a3 DO 00 A MOVL  PATSFREELIST+4, NODE 
51 4 A3 9€ 000 MOVAB PATSFREELIST, OLDNODE 
50 52 D1 00 1$: CMPL NODE, NODE 
0D 1B 000 BLEQU 2$ 
50 05 00037 TSTL NODE 
09 13 00039 BEQL 2$ 
51 50 D 0038 MOVL NODE, OLDNODE 
50 04 AO 00 000 : MOVL  4(NODE), NODE 
FE 11 0004 BRB 1$ 
04 A2 DO 00044 28: MOVL NODE, 4(INODE) 
04 «Al 3 D 48 MOVL _INODE, 4(OLDNODE) 
32 01 D 4C MOVL = #1, 
5 61 DO O004F 38: MOVL § (OLDNODE) RO 
50 6140 DE 00052 MOVAL (OLDNODE)(ROJ, RO 
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10 
PATFR 1b-5¢ -1984 00:16:31 VAX=-11 Bliss-32 V4.0-742 Page 15 
v04-000 1 ~ep-19 4 99:38:33 DISKSVMSMASTER:CPATCH, SRCIPATFRE.B32;1> (5) 
046 «AI 50 D1 8 6 CMPL RO, 4(OLDNODE) 5 
18 12 A BNEQ : 
28 06 AS 9 5 MOVAB PATSFREELIST, RO 3: 1124 
0 51 D1 0006 CPL OLDNODE, RO ge 
OF 1 06 BEQL 4 3 
4 4 Bi C 444 ADDL2 @4(OLDNODE), (OLDNODE) s 1127 
0 4 Al 4 069 MOVL ttt} ODE), 3; 1128 
046 «Al 04 Aad OD $098 MOVL 4(RO), 4(OLDNODE) ; 
04 11 00072 BRB 5$ : 1123 
51 046 Al 00 0074 4$: MOVL 4(OLDNODE), OLDNODE : 1130 
D3 52 02 F3 00078 5$: AOBLEQ #2, I, 3$ 3 1123 
04 ppore RET : 1107 
51 62 01 0007D 6$: CMPL (INODE), NUM 3: 1134 
08 13 00080 BEQL : 
O06D80BA 8F ODD 74 PUSHL #7176378 3 
06 11 000 BRB 8$ 3 
006D80B2 8F DD OQO08A 7$: PUSHL #7176370 3 
000000006 00 01 FB 00090 8$: CALLS #1, LIBSSIGNAL 3 
04 00097 RET 3 1138 
; Routine Size: 152 bytes, Routine Base: _PATSCODE + O0A2 


ous 


a ee ed od ed dd od dd + dd 
ec ee ee ee ee ee ed ce ed ed 
00900 09 09 SI NN SN NN NNSA A AAAAAAA AMI BS BB BPE PPP OW 
WR O ODNA UE WN 9 ODNOAU EWN OOWDNAUE WI" OVOONAU EW O/” 


PEDERI at st st kh ht tt 


50 04 AC 
00 6€ 


GLOBAL ROUTINE PATSFREEZ (NEED) = 
144 


FUNCTIONAL DESCRIPTION: 


VAX=11 Olisse -32 
DISKSVMSMAST 


CALLS FREEGET TO ALLOCATE STORAGE, AND CLEARS IT 


i CALLING SEQUENCE: 


PATSFREEZ () 


i INPUTS: 


LENGTH OF AREA WANTED (IN LONGWORDS) 


i IMPLICIT INPUTS: 


NONE 


i OUTPUTS: 


ADDRESS OF AREA 


i IMPLICIT OUTPUTS: 


NONE 


i ROUTINE VALUE: 


NOVALUE 


i SIDE EFFECTS: 


NONE 


BEGIN 
LOCAL 


(P_ = FREEGET (.NEED)) NEQ 0 


I 
ba ZEROCOR (.P, .NEED); 
RETURN .P 


007C 00000 
DD 0000 
FEE7 gf 


onvwo-m 
con 
OuUNocw 
Oo 
OO 
= 


Oooo, 


2C 00014 


-ENTRY PATSFREEZ, Save R2,R3,R4,R5,R6 
PUSHL N 


US EE 

CALLS #1, FREEGET 

MOVL RO, P 

BEQL 1$ 

ASHL ose NEED, o 

movCS #0, (SP), #0, RO, (P) 


V4.0-742 Pa age 
ER: CPATCH.SRCJPATFRE.B32;1 


<v 
2=. 
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Pa 


VAX-11 Bliss-32 V4.0-742 ge 
DISKSVMSMASTER: CPATCH.SRCJPATFRE .832; 1 (6) 


1 
2 


93:58:3 


9c 


6 1 
-sep- 
1 ~Sep-19 


1 


wlio 


P, RO 


50 


-PATSCODE + 013A 


30 bytes, Routine Base: 


3; Routine Size: 


742 


0- 


-11 Bliss-32 v4 
DISKSVMSMASTER: CPATCH.SRCIJPATFRE.B32; 
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590000 oof? gENTRY PATSREPORT_FREE, Save nothing 
51 00000000' a D PATSFREELIST+4, POINTER 

9 13 00008 1$: $ 
50 61 cd 000 ADDL2 (POINTER), COUNT 
1 04 Al 00 0001 MOVL  4(POINTERS, POINTER 

F511 00014 BRB 1$ 
50 04 C4 00016 28: MULL2 #4, RO 

4 00019 RET 


; Routine Size: 26 bytes, Routine Base: _PATSCODE + 0158 


Be Se Se Se Se Se Se Se Se 


-Sep-1984 00:16: -11 - .0- | 
IESeort94s 001633) YMC TIABLSSEz42 Hoo TEE arene each D 


oe 2 


PA 


H 10 
1er$een198e OB:16:3) YARN Retr 42 YEG Po Tee ae aree osc 


~-EXTRN LIBSSIGNAL 


; PSECT SUMMARY 
; Name Bytes Attributes 

:  _PATSOWN 65548 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC, “ALIGN (2) 
> PATSCODE 370 NOVEC, "NOURT. RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


: woeenme-- Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

$ _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 4 0 581 00:01.0 

; COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/VARIANT:1/LIS=LIS$:PATFRE/OBJ=OBJ$:PATFRE MSRC$:PATFRE/UPDATE=(ENH$:PATFRE) 
Size: 370 code + 65548 data bytes 
Run Time 00:18.7 


Lines/CPU Min: 979 
Ne hot tte 48086 

Y Used: 117 pages 
os ation Complete 


Elapsed ftaes it -2 


at 


PA 
vO 


= E | 


TARY | 
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